; {F5} To Install
; utility for automatically installing FWZIP Manager
; FWZIP Manager  
	; by Gary Reger
		;VERSION 
90-11-13
;                    (c) copyright claimed
; Load install instructions
@pk("{menu#dc}"),
@pk("{menu#dg}FWZms1.fw3{return}{in}{out}"),
; wait to read
@eraseprompt,
@beep,
@local(Ab),
Ab:=@inputline(" Press  {RETURN} to continue with install, or `A' to abort."),
@if(Ab="A",@list(
		@eraseprompt,
		@prompt(" Auto install aborted. Read FWZdoc.fw3 for instructions."),
		@beep(500,10),
		@beep(0,200),
		@return(0))),
; Begin install
@eraseprompt,
@beep,
@pk("{esc}{esc}{ctrl-out}"),
@echo(#off),
@delete("fwzms1"),
;now test for conflicting alt-key assignment 
;...............
@eraseprompt,
@prompt(" Auto installation of FWZip Manager in progress...."),
@beep,
@pk("{esc}{esc}{ctrl-out}"),
@echo(#off),
	;check alt-key
	@iserr(@isdocument("{Alt-Z}")),
    @list(
		@performkeys("{menu#dG}FWZmac.FW3{RETURN}"),
		@setselection("FWZmac"),
        @pk("{esc}{esc}"),
        @pk("{menu#lg}FWZmac{return}"),
        @pk("{123}Alt-Z}; FWZIP Manager version 
1.00"),
        @pk("{return}"),
        @pk("{f7}{scroll-lock}{home}{in}{return}{SCROLL-LOCK}")),
        
     @list(
		@setselection("Library"),
		@pk("{in}{menu#lg}"),
		@pk("{123}alt-Z{125}{return}"),
		@pk(";old alt-Z"),
		@pk("{return}"),
		@pk("{ctrl-out}{return}{scroll-lock}"),
        @pk("{menu#dc}"),
        @pk("{menu#dg}FWZmac.fw3{return}"),
        @setselection("FWZmac"),
        @pk("{esc}{esc}"),
        @pk("{menu#lg}FWZmac{return}"),
        @pk("{123}Alt-Z}; FWZIP Manager 
version 1.00"),
        @pk("{return}"),
        @pk("{f7}{scroll-lock}{home}{in}{return}{SCROLL-LOCK}"))),
;clean-up desktop,
@pk("{menu#dc}"),
;load prg to set path
@eraseprompt,
@beep(1000,1),
@prompt(" Setting DOS path default that FWZIP Manager will use -- see documentation."),
@pk("{Menu#dg}FWZipman.fw3{return}"),
@PK("{ESC}"),
;set path variables
FWZipMan.GV.fwzUEpath:=@setdrive &@setdirectory,
FWZipMan.GV.fwzUFpath:=@setdrive &@setdirectory,
;set path to find help documents
fwzipman.gv.fwzhelppath:=@setdrive &@setdirectory,
; load path message
@pk("{Menu#dg}FWZpathmsg.fw3{return}"),
@PK("{ESC}"),
; enter path info
@setselection("FwZpathmsg"),
@pk("{in}{ctrl-home}{ctrl-end}{home}{tab}"),
@pk("1.  The path for finding PKZIP.exe files was set for " &FWZipMan.GV.fwzUEpath),
@pk("; Re-set if your PKZIP related *.exe files are not on this path."),
@pk("{return}{return}{home}{tab}"),
@pk("2.  The default path for finding your *.zip files was set for " &FWZipMan.GV.fwzUFpath),
@pk("; This should be a path where you will regularly manage your zipped files, if not re-set."),
@pk("{return}{return}{home}{tab}"),
@pk("3.  The default path for finding your Help files was set for " &FWZipMan.GV.fwzhelppath),
@pk("; This must be a path where fwzdoc.fw3 resides."),
@pk("{return}{return}"),
@pk("{ctrl-home}{out}"),
; save fwzipman.fw3 with new paths
@setselection("fwzipman"),
@pk("{ctrl-out}"),
@pk("{ctrl-return}"),
;load cross-referenced version of basic instructions
@eraseprompt,
@prompt(" Initial path defaults set, now loading basic instruction files....."),
@pk("{Menu#dg}FWZms3.fw3{return}"),
@PK("{ESC}"),
;load basic instructions
@pk("{menu#dg}FWZms2.fw3{return}"),
@pk("{ctrl-in}"),
@echo(#on),
@eraseprompt,
@prompt(" Installed. DOS Path set - BUT MAY BE WRONG. See Instructions on desktop."),
@beep(1760,2),
@beep(1760,2)
NG. See I
fwzins